home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ File Sharing Overlay 1.xpl < prev    next >
Text File  |  2001-04-04  |  2KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Explorer\Settings"
  5. "NAME"="Shared Resources Overlay"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show Hand Icon over Shared Resources"
  8. "DESCRIPTION 1"="When you share a drive or a folder in Windows Explorer, a hand icon appears over the top of it, to indicate that it is shared. If, however, you do not want this hand icon to appear, clear the box above. To restore the icon, place a tick in the box."
  9. "COMMENT 1"="For more information, see http://registry.winguides.com/display.php/802/"
  10. "VERSION"="1.01"
  11. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  13. "CONTACTURL"="http://www.neilrt.cwc.net/"
  14.  
  15. sP="HKCR\Network\SharingHandler\@"
  16.  
  17. SUB Plugin_Initialize
  18.  s=RegReadValue(sP)
  19.  if s="msshrui.dll" then
  20.   Call SetUIElement(1,true)
  21.  end if
  22.  if s="ntshrui.dll" then
  23.   Call SetUIElement(1,true)
  24.  end if
  25. END SUB
  26.  
  27. SUB Plugin_CheckData(ElementIndex)
  28. ' Only here for X-Setup 5.x compatibility
  29. END SUB
  30.  
  31. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  s=GetUIElement(1)
  33.  if s=true then
  34.   w=GetWinVer
  35.   if w=2 then
  36.    Call RegWriteValue(sP,"ntshrui.dll",1)
  37.   else
  38.    if w=4 then
  39.     Call RegWriteValue(sP,"ntshrui.dll",1)
  40.    else
  41.     Call RegWriteValue(sP,"msshrui.dll",1)
  42.    end if
  43.   end if
  44.  else
  45.   t=RegValueExists(sP)
  46.   if t=true then
  47.    Call RegDeleteValue(sP)
  48.   end if
  49.  end if
  50. END SUB
  51.  
  52. SUB Plugin_Terminate
  53. END SUB
  54.